home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / getdrpth.zip / GETDRIVE.ASM < prev    next >
Assembly Source File  |  1993-01-04  |  985b  |  30 lines

  1. ;===============================================================
  2. ; Returns the default drive a character variable string.
  3. ;
  4. ;    usage:    CALL Getdrive WITH <Memory variable>
  5. ;
  6. ;===============================================================
  7. TITLE GETDRIVE -- Returns the default drive
  8.  
  9. _PROG     SEGMENT  BYTE
  10.           ASSUME   CS:_PROG
  11. ;
  12. GETPATH   PROC     FAR      ; Force a FAR RETurn.
  13. ;
  14.           MOV      AX,[BX]  ; Check for null. (End of variable.)
  15.           CMP      AX,0     ; Is the variable long enough?
  16.           JE       Error    ; No, exit.
  17. ;
  18.           MOV      SI,BX    ; Load variable offset in SI.
  19.           MOV      AH,19h   ; Get the default drive.
  20.           INT      21h      ; The default drive is returned in
  21.                             ; AL.  (0 = A:, 1 = B:, etc.)
  22.           ADD      AL,'A'   ; 41h = 'A.'
  23.           MOV      [SI],AL
  24. Error:    RET               ; Return to dBASE.
  25. ;
  26. GETPATH   ENDP
  27. ;
  28. _PROG     ENDS
  29.           END
  30.